10 POKE56,160:POKE55,0:CLR:DV=PEEK(186):IFDV<8THENDV=8
20 PRINT"[147][146][158][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]
30 [153]"DEF LENONVERT (null)EARS (null)O (null)ECONDS "
40 [153]"WAITUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
50 PRINT"[159][197]NTER NUMBER OF YEARS: [153]";:LI=10:GOSUB180:IFVAL(W$)=0THEN20
60 PRINT"[158]":Y=VAL(W$):PRINTVAL(W$)"[217]EARS ="Y*12"MONTHS"
70 PRINTVAL(W$)"[217]EARS ="Y*(365.25/7)"WEEKS"
80 PRINTVAL(W$)"[217]EARS ="Y*365.25"DAYS"
90 PRINTVAL(W$)"[217]EARS ="Y*365.25*24"HOURS
100 [153][197](W$)"(null)EARS ="Y[172]365.25[172]24[172]60"MINUTES
110 PRINTVAL(W$)"[217]EARS ="Y*365.25*24*60*60"SECONDS
120 [153]"OPENATNGAIN? ((null)OPEN/(null)OPEN)"
130 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]130
140 [139]A$[178]"Y"[167][138]
150 [137]50000
160 [144]
180 W$[178]"":T[178]0:LW[178]0:[139]LI[178]0[167]LI[178]35
190 [161]A$:AS[178][198](A$[170][199](0)):[139]TI[177]15[167][141]270
200 [139](A$[179]" "[176]A$[177]"Z")[175](A$[179]"ATN"[176]A$[177]"(null)")[175]AS[179][177]13[175]AS[179][177]20[167]190
210 LW[178][195](W$):[139]AS[178]13[167]T[178][171]1:[141]270:[142]
220 [139]LW[178]LI[167][139]AS[179][177]20[175]AS[179][177]13[167]190
230 [139]AS[178]20[167][139]LW[178]0[167]190
240 [139]AS[178]20[167]W$[178][200](W$,[195](W$)[171]1):T[178]0:[141]270:[141]270:[153]"WAITCMD CMD";:[137]190
250 W$[178]W$[170]A$:LW[178][195](W$):[151]212,0:[153]"WAIT"A$;:[141]270
260 [137]190
270 T[178][168]T:[151]199,[171]T:[153]" CMD";:TI$[178]"000000":[142]
10000 [160]15:[159]15,8,15,"S:YEAR SEC":[160]15:[148]"YEAR SEC",8:[144]
50000 [139][194](787)[179][177]119[167]60000
50010 [151]49152,0:[151]44,192:[151]43,1:[151]45,[194](53246):[151]46,[194](43249):[138]
60000 A$[178]"HIGH BASIC":[129]I[178]8[164]9:[160]2:[159]2,I,2:[160]2:[139]ST[167]60020
60010 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]60030
60020 [130]:[153]"LOAD":[151]186,8:[128]
60030 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD"
60040 [153]"LOADP(null)49152,0:P(null)44,192:P(null)43,1:P(null)56,207:P(null)55,252:CLR:L(null)"Q$A$Q$","I
60050 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]